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4051 Graphic System is the center of attention as it computes frequency response curves for AR brand speakers. Pictured is FRED'S 
SOUND OF MUSIC display at recent "Stereo Show and Tell" in Portland, Oregon. 

4051 Computes Best Speaker Placement 
in Traveling Stereo Roadshow 



by Gary P. Laroff 

"My room is 16 ft. x 12 ft. x 8 ft. high with walls made of 
marshmallow. Where do I put my speakers? Where 
should I sit? How much power will I need?..." 

These and other questions are being answered at the 
TELEDYNE ACOUSTIC RESEARCH (AR) "Science 
and Sound" show traveling throughout the United States 
and Europe. And the answers are generated by Tektronix 
4051 Graphic Systems with Tektronix 4631 Hard Copy 
Units attached. 

Laboratory Comes to the Retail Floor 

Calculations and data that formerly took weeks to work 
out can be drawn from the internal magnetic tape and 
memory almost instantly. AR's 4051 can then provide 
data on ideal listening locations from room dimensions 
and speaker placement supplied by the customer. It shows 



you where you should really sit in your listening area. The 
AR 4051 is programmed to provide tweeter polar 
dispersion curves by simply supplying it with high 
frequency driver diameters. The 4051 does all of the 
mathematics in a matter of seconds and plots the curves 
while the customer watches. Hard copies of the screen 
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"jL/sf describe your room and I'll show you the best position for 
listening to any speaker," says Fred Lindennann of FRED'S 
SOUND OF MUSIC, Portland, Oregon. 




"Programs developed In our large in -house scientific computer 
have been transferred to the 4051" states AR's Steve Johnson, 
traveling companion of the 4051. 



graphics are given to the customer seconds later. Perfor- 
mance data of various AR speaker models and their use in 
specific installations can be shown on the 4051 screen. 

The ACOUSTIC RESEARCH TraveUng Roadshow, 
comprised of a "stack" of AR's new speaker models, a 
4051 and a 4631 Hard Copy Unit are drawing crowds 
wherever they go, Fred Lindemann, of FRED'S SOUND 
OF MUSIC in Portland, Oregon, is very enthusiastic 
about the response to his 4051 at the recent "Stereo Show 
and Teir in Portland. Using the 4051, Fred answers 
questions about dispersion, power handling, listening 
locations, speaker placement and how speakers work. 

A number of programs are demonstrated on the 4051. 
Some were developed on AR's large in-house scientific 
computer and were transferred to the 4051. Others were 
written especially for the 4051. Robert Berkovitz, 
Research Director at AR and author of the programs, is a 
very enthusiastic supporter of the 4051 as a personal 
computer and relies heavily on interactive graphics to 
describe acoustic phenomena. 
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Hard copies of typical 4051 output are shown in the 
accompanying figures. The programs are not presently 
available and are proprietary to ACOUSTIC 
RESEARCH of Norwood, Massachusetts. 

TEKniques readers who would like to see the 4051 and 
AR's Roadshow and Consumer Computer Clinics are 
encouraged to watch newspapers, magazines and televi- 
sion for the next visit to their area, fc:^:^-'^.-^; 
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Fig. 1. Frequency response for a 19mm diameter tweeter at a 
frequency of 15,000 Hz. 
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Fig. 2. Frequency response of the listener's room at 15 bass 
frequencies. The 4051 lists a frequency and then plots the 
normal modes for that frequency 



Copyright ■« 1978. Tektronix, Inc. 
All rights reserved 
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Fig. 3. How speakers work. A graphic example of one of line 
preliminaries: sound wave formation. 




Fig. 4. Customer's room shape diagram drawn moments after 
the customer has supplied the data. 
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Fig. 5. Ideal stereo listening area diagram for the customer's 
room and speaker placement. The 4051 is programmed for 
rooms made of plaster, brick, sheetrock, wood, marshmallow 
and other exotic materials. 
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Fig. 6. Typical text on amplifier power requirements. 



) 



^Editor's Note 

New Astronomy and Physics Demo 
Program 

Dr. R. J. Reimann of Boise State University in Idaho has 
contributed a second edition of "Graphics Demonstra- 
tions for Astronomy and Physics" to the AppHcations 
Library. This second version includes a new program, 
"EHipse.". Dr. Reimann states also that numerous im- 
provements have been made in many of the old programs 
and that the order of presentation has been changed to a 
more natural sequence. The updated version allows 
.optional use of the Tektronix 4662 Plotter. Further 
details are contained in Abstract Number 5 1 / 00-540 1 ; 1 . 

Contest Update 

The deadline for entries to the computer-aided design 
contest was extended to April 15, 1978, to allow time for 
more of you to complete and enter your programs. 
Judging of the entries will be completed by June 1, 1978; 
results will be published in the next issue of TEKniques 
(Vol. 2 No. 5). 



Catalog Reminder 

The Applications Library wishes to remind you that there 
is currently available, for the asking, a catalog of the 
programs available through the library. Catalogs can be 
obtained by dropping a line to the 4051 Applications 
Library, Tektronix, Inc., Group 451, P.O. Box 500, 
Beaverton, OR 97077. Or you can make a quick phone 
call to the Hbrary at (503) 682-3411, extension 2618. 

Copyrights 

There is always the temptation to duplicate favorite 
graphics (cartoons, drawings, etc.) when you have access 
to an easy-to-use Graphic System like the 4051. Please 
check for copyright* any programs that duplicate 
graphics or data from published sources before submit- 
ting them to the Applications Library. If the drawing or 
data is copyrighted, there must be a copyright release 
from the copyright holder before the program can be 
included in the Library or this newsletter. Copyright 
release for such applications can usually be obtained by 
sending a brief letter of explanation and request to the 
copyright holder. fct^r^.^xK'-i 

*A i'opyrif(hi staiemeni will ht on the title pai^e at the front of a hovk, within the masthtaU in a 
periodical ur inJuaieJ hv the copyriffhi mark and year, i.e.. © 1978 (>« the face of the graphics. 



New Interface Allows 4051 Data Communications 
with IBM Computers 
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by Gary P. Laroff 

The new Tektronix 4051C01 SYNCHRONOUS 
COMMUNICATIONS INTERFACE is an 
interface/peripheral for the 4051 which provides 4051 
users access to data bases stored on IBM computers. In 
general the 4051C01 supports IBM 2780 (BSC or 
BISYNC) communications protocol and acts as an 
intelligent interface buffering the data in both directions 
and controlling the line protocol independent of 
programs running on the 4051. Data communication is 
initiated from either the keyboard of the 4051, or by 
running BASIC language subprograms on the 4051. 

Data communication between a "host computer" and the 
4051 can now be performed in either asynchronous or 
synchronous modes. Asynchronous communication is 
more interactive and is handled by the 4051 Option 1 
Data Communications Interface. Synchronous com- 
munication is handled by 4051C01. Transferring data 
asynchronously is most successful when the amount of 
information communicated over a phone line is "small" or 
when a direct line connection is provided to the host 
computer. Sending data without any means of error 
checking and recovery can be difficult when there is noise 
on the line or when an accidental disconnect occurs. In 
such cases the 4051 may continue to listen to a dis- 
connected line, or a complete data transfer may be 
aborted and have to be restarted. 

Where large amounts of data or program must be 
transferred to or from the computer, a means of providing 
for transmission error detection and recovery is required. 
This is the world of the synchronous batch terminal. Also, 
communication will be more economical if a higher data 
transfer rate is available. For the 4051, error 



4051001 SYNCHRONOUS 
COMMUNICATIONS INTER- 
FACE provides 4051 users ac- 
cess to data bases stored on 
IBM computers. 



checking/ recovery and higher speeds (up to 9600 baud) 
are achieved with the 405 ICO 1 Synchronous Com- 
munications Interface. 
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Interface Operation 

The 4051 CO 1 provides the 4051 user with the capabiUty to 
communicate with IBM computer systems. IBM 
BINARY SYNCHRONOUS 2780 Remote Job Entry 
protocol is firmware implemented in this micro- 
processor-based intelligent interface. High speed (up to 
9600 baud), error free communication, and standard 
system device definition are the major benefits provided. 
Connections to the IBM system may be either direct or 
with synchronous modems to an IBM ICA or 270X- 
/370X. 4051C01 is connected through a 4051 ROM 
backpack slot. An RS-232 connector and a 10 ft. c^ble are 
used to connect the 405 1 CO 1 interface to a modem or 
directly to a computer's communications port. 

Control of and response to the 2780 line protocol, I O 
buffering, and error detection and correction are per- 
formed by the interface microcomputer system. Thus the 
4051 CO 1 interface and 4051 may operate independently. 



Programming the 4051 C01 

A major feature is that only one command is required to 
allow GPIB devices, such as the Tektronix 4924 Digital^ 
Cartridge Tape Unit, to send a file of data or programs via f^ \ 
the 4051 CO 1 to the host computer. Similarly, the host -^ 
computer can dump a program or data in batch fashion to 
the Tektronix 4641 line printer or 4924 tape via the 
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4051C01. Because the 4051 is merely part of a data path, 
the transmitted data or programs take up none of the 405 1 
read/ write memory. 

Record and file I/O are performed through the use of 
BASIC subroutines residing in the ROM pack and the 
interface operating system. 

Magnetic tape files may be transferred to or from the host 
computer system by positioning the tape and using one 
BASIC statement. 

Using the internal drive 

CALL "C01MTR" or CALL "C01MTW" 

Using a 4924 assigned device number 3 
CALL "C01OUT", 3 or CALL "C01INP", 3 

Files from the host computer may be sent to the 
lineprinter, screen or any 4051 device number. 

To the 4641 lineprinter left backpack slot 
CALL "C01INP", 41 

To the 4051 display 
CALL "C01INP", 32 

The 4051 CO 1 may be addressed through the use of 
PRINT and INPUT statements and device numbers 49 or 
59 depending uponwhich 405 1 backpack slot contains the 
interface ROM pack. 

AS is a string variable containing the desired record 

To read a record 
INPUT @49: AS 

To transmit a record 
PRINT @49: A$ 

The status of the interface can also be examined by the 
programmer- 



Five utility subroutines are provided for parameter 
initialization, interface status, and troubleshooting. 

C01INIT establishes default parameters and allows 
definition of nine communications 
parameters 

C01PRLIST lists communications parameters currently in 
effect 

C01STAT returns status parameters as variables 

C01DIAG initiates a complete test of the interface 
system and returns diagnositc indicators 

C01TEST initiates the self-test, also routinely 
performed at power up of the system 

New 4051 System Capabilities 

In addition to higher data transfer rates and error 
recovery, 405 1 CO 1 allows access to host computers which 
do not support asynchronous terminals. Batch data and 
program transfers are now possible between remote 4051 

systems. 

Although the 4051 with the new 4051 CO 1 interface is not a 
direct substitute for an expensive high-powered Remote 
Job Entr\' (RJE) system such as an IBM 2780, the 
4051 '4051C01 is a powerful hardware configuration. By 
adding a Tektronix 4641 Matrix Printer, 4924 Digital 
Cartridge Tape Unit, or GPIB paper tape reader/ punch 
such as the FACIT models 4070/4021 (discussed in 
TEKniques Vol. I No. 7) the 4051 becomesthecenter of a 
distributed processing batch-oriented terminal/ personal 
computing system. 

For more information on the new 405 ICO 1 Synchronous 
Communications Interface, contact your local Tektronix 
Sales Engineer, i;^:^--:'-^;! 
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Dashed Line Algorithm Update 

by Syed M. Hasan 
") Troy, Michigan 

Regarding the enhanced version of the Dashed Line 
Algorithm suggested by Ken Cramer in TEKniques Vol. 2 



No. 1, page 9: Problems can be encountered when 
drawing a vertical line downwards. The program can 
iterate indefinitely in the FOR/ NEXT loop in lines 1210 
to 1230. In the case of the downward vertical line, XI is 
equal to X2, and statement 1200 reduces to this: 

1288 FOft !>• TO 8 STEP 8 

This is an infinite iteration. The probelm can be overcome 
by using the following technique: 

1193 H-2t<ABS(Ul>HAX AeS<U2>> 

1288 FOR 1-8 TO ABS<X2-X1-UU2) WAX AB8<Y2-Yl-U2t2) ST£P H 



3-D Line Clipping 



by Jay Beck 

When drawing three-dimensional objects on the 405 1 , it is 
necessary to perform your own line clipping to remove 
line segments that are outside the field of view defined by 



a 3-D window. This article describes a simple but very 
capable 3-D line clipping algorithm. 
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'c,?so f:.? 1:1 TO Z'^ 



:;uO =,£M_ 



i05^J 
'0550 
10560 
'0570 
'0530 
10590 
^CbOQ 
10610 
10620 
10630 
10640 
10650 
10660 
I0d70 
106S0 
106)0 
10700 
10710 
10720 
107 30 
107UO 
10750 
10750 
10770 
10730 
10790 
10800 
10810 
10820 
10830 
10340 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
1 1040 
11050 
11060 
1 1070 
11080 
11090 
11100 

lino 

1 11 20 



SEXT I 

HELM Define WINDOi' 

REM ; 

REM ' ^ 

PRINT 

PRINT "pjiter mViZOtt Uiur.'^ary values, 50j Eye Pent Zis: 

PRINT ''■WI,wr,W'b,'«t.«Ti,Wy ,£ : "; 

INPUT ^C,W1,W2,'« ■,Wh,«=,-: 

W6=(WiW0}/2 

•^7=(«7+W2)/2 

wg='.Wl-W0)/2 

«■';=!. V3_W2)/2 

GOSi.rB 11450 

Tn'.3) = l 

T(4!2;=-«7 

T(4,3)=-E 

T(4,4)=l 

GGSUB 11550 

REM Center view axis at center pers::«ctive py 

W0:yo-W5 

W1:W1-W6 

W2-(V2-«7 
W3=W^-w7 

W4:W4-E 

W5=W5-E 

REM Define Window normals 

N(1,1)=0 

f)(1.2)=2»W1«W4 

N(l . 3)=-2*Wl*W2 

N(2,1)=-2»W3*W4 

N(2.2)=0 

N(2,3)=2»W1»W3 

N(3, 1)=0 

Ii(3.2)=-2»W1*W4 

N(3.3;=2»W1»W3 

N(4, 1)=2»W3*W4 

N(4.2)=0 

N(4,3)=-2«WO*W3 

N(5, n=o 

N(5.2)=0 

N(5.3>:1 

N(0,11=0 

N(6,2)=J 

N(6,3)=-l 

REM Define i-th plane weiijnt •sector 

FOR 1=1 TO 6 
FOR J:l TO 3 
Fn.J>rO 
NEXT J 
Nt.XT I 
F^5.3^=W4 
Fvb,3^:W5 
RETURN 

RFM ; - - 

REM ; Define VtEWP'ORT 

REM ; 

REM ; 



■ ■ :" P°INT 

)!i40 PRINT "Enter VIEWPORT tj.junlar/ vn.'^s" 

' 15 J °=IWT '"/l.V- ,Vb, /*•. : "; 

1 'ro ;'<p',- v",'/! ,'/.', V3 

' '.'0 ;'-.;/i-V0l/2 

1 '^0 V^^'V •♦V;^)/2 

inO V^:'-7i-VO)/2 

12 ;C r<::'V3-V2;/2 

1220 PRINT <^^^.\21:vO,7P 

12;"; c>f*I'iT '*'2,20:V! , ;2 

1--0 PRIST f^ '2, 20: VI ,'■/ ] 

'^-Wj PRINT ^^2,2O:V0,V'' 

12'.C PRINT ^-2,20:V0,V2 

■ '2": BETIRN 

C REM 



■;: F2R J:' ?: 4 

';;vO IF 1=.: THEN 113^0 

i'?50 m;i,;;=o 

n:6o zo 70 1-^80 

J ^'i,j;=i 

-■^c NE;cr J 

"2>o ne;c I 

RET'J'N 



li-'-CSEXT I 



ne;c '■ 
ne:c ; 
ne:c I 



SEV IxO.yO.zO, 1][ M ; : '. x2,y2,32, ', ] 




REM 








x2:XD';lg(i,j;}*m(i, n+YO(LC\i,J))*'^'2.i)+zo'L:(i.-. 


))»M(3,1)+Mv4, •■ 


y2=x:(l:(i,:;i*"(',2}*y':(l:;i.j};»"'2,2)*zc(l:;i.. 


))*y(3,2)+-M(u,; 


:2.xo'LO(i,o;)»^(i.3)+YO(LC(i...)»«i2,3)+z:cLc;:.u 


;)»M(3.3)*M(y.3' 


RETURN 




qrv .. . ,,,.,. . „ 




REM : ^ D CLIPPING ALGORITHM 




REM . Inpjt F(i,3) :irec:rix vectors 




REM ' N(i,3) Norma, vectors to Window Pia 


nes ; 


REM X' ,Yl,:i Vect^^r start 




REM <2,Y2,Z2 Vector end 





1 1 d9C 


FOR Ilzl TO 6 




1 1 5<:o 


G1=X1-F(I1, 1) 




11910 


G2=yi-f;ii,2) 




11 ^^20 


G? = Z1-F(n,3) 




no;o 


D=D 1 "N (1 1 , 1 ) +:-2»N ( 1 1 , 2) f D 3»N ( 1 1 


3) 


11040 


G::G 1 'N ( 1 1 , 1 ; *02*N ( [1 , 2)+.G 3*N { 1 1 


V 


11150 


IF 2=0 THEN 12'JIO 




11960 


C:-G/D 




1 1 ^I".? 


IF 2'0 7!E'i •2';'0 




1 1 J60 


IF :<3 THEN 12220 




M990 


|J:C MIN U 




1 X'Xl 


GO TO 12050 




12010 


IF :<0 THEN 12220 




I.W^O 


GO TO 1.2050 




12'0^^0 


IF C^l THEN 12220 




1204J 


L:C MAX L 




IJ^O-^O 


NEXT 11 




1 :>Z'20 


REM 




):-ri 


IF L->J THEN 12220 




i2':60 


X3.Xi>D1»L 




l2i2^-)0 


YT=Y!*:2»L 




" 2 ' :o 


Z'::Z1*:~; -'L 




12' '0 


X4zX1»21»') 




121210 


Y4=YUD2*U 




12130 


Z4 = ZU2^»U 




12140 


REM — 




12150 


X5 = X3/Z3»(W4*VB/W8,UV6 




':ioO 

i:i''o 


Y5=Y V''Z3*CW4»V9/'««)UV7 
X0:Xy/Z4*(;W4»VR/W''. )*Vb 




'21 do 


Yt:Y'J/Z4»{W4«Vq/W)*V7 




1 2 1 -^0 


REM 




1 :2oc 


PRINT ^V2,21:AP.S(X5),An':(Y'^) 




'2210 


PRINT •J^2,20:ABS(X^), Alir,(Y6l 





(> 



( 



f=ig. 1. 



^ 



) 



^ 



To understand the program (Fig. 1), youshould be aware 
of the two coordinate systems the program employs. The 
first coordinate system is left-handed and is used to 
describe the object to be viewed. The clipping algorithm 
given is driven by a short program that uses a cube as a 
test object. Figure 2 shows the cube as defined in the 
program listing (lines 10090-10140). 

A left-handed coordinate results when the Z+ axis is 
extended into the screen. This was done for two reasons. 
First, the three-dimensional axes are a simple extension 
of the more familiar two-dimensional axes. And second, 
the 3-D clipping window specification is an extension of 
the same parameters used to specify the 2-D clipping 
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Fig. 3. 

The 3-D clipping window is specified in the left-handed 
coordinate system of the cube. The field of view is shaped 
like a pyramid lying on its side. WH and WY, seen edge- 
on in Fig. 3, are the "near'' (to E) and "far" clipping planes. 
One can think of the 2-D window specification as 
describing a rectangle on the WH plane. The aspect ratio 
of the pyramid is controlled by the shape of the rectangle 
and the distance "E" is located from it. We assume that the 
X, Y location of E is always aligned with the center of the 
rectangle, thus to locate the eye point, only its Z 
coordinate is required. 



The second coordinate system is used to reduce the 
complexity of doing the clipping step. This coordinate 
system uses the eye point as the origin. The clipping 
boundaries are described to the program by specifying the 
normals (of the six planes) that face toward the pyramid's 
interior, and by specification of a point lying on each of 
the six planes. By locating the eye point at the origin, the 
point (0,0,0) is common to four of the six planes and can 
be used to satisfy part of the pyramid specifications. 



-1,1 




\ "*" 


1.1 


- x^ 


> 

E 


r 


-- 


WH 







^ 


WY 














































^<CI;™" ■ — " z 


















-1,-1 




1.-1 






3.0 














5.0 



Fig. 4. 



The translation of the test object to the cUpping axes is 
performed by a translation matrix.' 



[X Y Z 1] 


1 

1 

_ -W6 -W7 -E 1 _ 


=[X^ Y^ Z' 1] 

W6 = W1 + WO 
2 

W7 = W3 + W2 
2 



The clipping algorithm works in basically the following 
manner. Suppose we are given a 3-D line segment "L" that 
penetrates a clipping plane 'T". The projections of a line 
segment, and a reference vector onto a normal to the 
plane form a proportion b/a. The reference vector is 
known to originate on the surface of the plane (because 
we defmed it that way). 

The proportion b/a is always a value between and 1 if 
the line segment intersects the plane. It may be < 0, or 
>1, if an extension of the line segment intersects the 
plane, but these cases are rejected. The six clipping planes 
form a convex 3-space that can only be penetrated in two 
places by a straight line.^ By determining the ratio b/ a for 
ail six planes a set of values is determined. If we order this 
set, the two middle values will determine the clipped Une 
segment. 




Figures 6 and 7 resulted from running the program. The 
input parameters are defmed below. 



Wl 


Window left 


('^fnin/ 


VI Viewport left 


Wr 


right 


(X™) 


Vr right 


Wb 


bottom 


(Y™„) 


Vb bottom 


Wt 


top 


(Y„«,) 


Vt top 


Wh 


hither 


(2„.) 




Wy 


yon 


(Z™,) 




E 


Eye 


(Z) 






(coordinates of object) 


(screen display units) 



Entvr WIHOOU l»4UA4«ru v«U«s, •»«! Etf« Point Dittcnc*. 
Ul.Ur,Uk,Ut,Hh,Wv>E : -. 3i 1 . 3, -. 3, 1 . 3. -. 3, 1 .3, -3.3 

Ei»t«r UIEHfOtT bou»»<<«rv w«lii«i 
Ul.Ur,IA,gt : 3.8«,3.Bt 
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tr UIE:MP0«T boundary values 

^)r,u^,ijt : s,ea,s.8« 
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Fig. 7. 



Program Note: 

The program uses screen level moves (Print (a)32,21) and 
draws (Print (5)32,20). Roundoff error can result in very 
small negative numbers (on the order of -.6E-13) instead 
of zero. When this occurs the line is not drawn properly. 
To avoid this potential problem, the coordinates used are 
forced to be greater than zero by use of the ABS( ) 
function. 



Describing Your Own Object 

Lines 10090-10140 contain an ordered set of coordinates 
for the ends and midpoints of each edge in the cube's face. 
Each line (from 10160-10220) designates the coordinates 
to be used in drawing a closed line about the cube. The 
position in the XO, YO, ZO array in which the coordinate is g 
stored is the value used on these Hnes. V 

To describe your own object, list the object's unique 
coordinates in a table. 



^ 



Index 


X 


Y 


X 


1 


Xi 


Y, 


z, 


2 


X2 


Y2 


Z2 


3 


X3 


Y3 


Z3 


4 


X4 


Y4 


Z4 


etc. 









38« P»IMT -OECIHAL IMPUT, BA8C OF OUTPUTJ" 
39« (HPUT 01, Bl 

4aa Gosua 4 38 

418 PfflHT US!HG •33TFALF0":l»l,BI 
429 GO TO 398 

438 R£H DEC TO COm* 8U8K 

449 D«-"812345<789A8CDEF' 

438 »>•-•• 

468 Hf«" 

478 02-IHTfDl/Bl) 

488 03-01-02181 

499 H$-SEG<0t,D3*l, 1) 

589 Rf«H>tR« 

519 IF D2-8 THEN 348 

529 D1-D2 

538 GO TO 478 

348 DELETE D2,03,D«.H« 

558 RETURN 
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Then, in a data statement, write these coordinates in the 
following order: 

X, Y, Z, Xz Y: Z2. . . 

Using one data statement per polygon, describe each 
polygon in the following manner: 

{Number of points) ,( index, ) (index, ), 
(index 3 ),... ( index „ ) 

e.g. DATA 5, 1, 4, 7, 9, I 



N 5 coordinates 
Change line 10060 to: 

max index P, max (n) +1 

19968 DIM X8<24),Yec24),28<:24>,Le( , ) 

Change Lines 10290 to 10330 to read: 

19299 READ P 

18292 FOR I«l TO P 

19294 READ L9<I, 1) 

18296 FOR J»2 TO H+1 

18298 READ L8<I, J) 

18388 NEXT J 

18382 NEXT I 

Also lines 10410 and 10440 should read: 

18418 FOR J»l TO P 

J 

I 

I 

18443 FOR J»2 TO L8<I,1) 



.Wk man, W. and Sproull. R.: Principles of Interactive Computer Graphics. Chapters 12-14. 
(McGraw Hill 1973). 

*' Beck. J. and Cyrus. S4.; Computer Graphics: Two- and Three- Dimensional Clipping, AFHRL- 
TR-77-I4. USAF Systems Command. 



Tie Menu to Both Keyboard and 
User-Definable Keys 



Many 405 1 programs can be written so that the user may 
use either a screen menu, inputting the choice from the 
keyboard, or the User-Definable Keys. The following 
program layout is a suggestion of a standard use of line 
numbers and a way to tie the menu to the UDK's so that 
both are equally easy to use. 

1 RE« — Pro»r«« t i 1 1 « f o€S h«r« 

2 SET KEY 

3 GO TO 18« 

4 REH — 0«scrib« l«t s«bpro«ran h4tr« 
3 C-1 

6 GCSUB 188t 

7 EHD 

8 fiEfl — 0«scrik« Znci «ubi»rotr«B h«r€ 

9 C-2 

19 GO SUB 2889 
11 EHO 



48 REH— UDK #18 — Ust scre«n mmnv. 

41 C-18 

42 CO TO 399 



REM — D«scrib€ 2ath suborofran here 



82 GOSUe 28888 

83 EHO 



I 

188 REH — 1«i»a Routine 

118 REN — Oo all dintns lot>ii»« h«r€ 

129 REW — Oo «II data a««nni«i€wt« here 

138 REH — Th« above ihould only h«w€ to b* 

131 REH — executed once. ftfter that the 

132 REH — vscr should use ncnu or UOK and 

133 REH— never h«ve to type 'R\M' 
I 

I 

I 

388 REH — Screen Kenu 

318 PRINT 'LTitle o* Pro»r««J" 

328 PRINT • 1— 3ubBro»ra« 1" 

338 PRINT • 2— SMboronran 2' 

I 

I 

I 

418 PRINT M8— Stoo ond Use UDKs' 



19 — Subprojran 19' 
28 — SuboroaroB 29" 
JYour Choice: *; 



I 

I 

498 PRINT 

588 PRINT 

518 PRINT 

528 INPUT 

538 IF C-18 THEN 588 

548 GOSUe C OF 1888, 2888, 3888, 4888, 5888. 6888. 788«, 8888, 9888.388 

558 G0SU8 C-18 OF 1 1888, 12888, 13888, 14888, 15888, 16888, 17888, 18888,28888 

568 REH — Redisplay «enu 

578 GO TO 388 

588 REH--Return 4831 to idle mode 

598 ENO 

I 

I 



if necessary 



J 



Base Changing Routine 

by Henry E. Zeuli 

Massachusetts Institute of Technology 

The following routine can be easily included in any 
program that requires conversion from base 10 (decimal) 
to another base supplied by the operator. Lines 430 
through 550 operate on any decimal number in D 1 and a 
base, sixteenor under, entered in Bl. The number value in 
the new base is returned in R$. The routine operates on 
any positive decimal integer. 



IXX^ RETURN 



28M REH— Subpro«r«« 12 



2XXX RETURN 

I 



I 

18888 

18881 

18882 

18883 

I 

I 



28888 REH— Subprofran #28 



REH — Use this area for any extra routines 
REH — This orea is free since i ten 18 
REH — IS used to flip-flop between the 
REH — screen nenu and UDKs. 



2aXXX RETURN 



21888 REH— Hultiply used utilities and other 
21881 REH — subpro«rans can start here 



NOTES: 

1 ) Note that C is set both by the screen menu and UDK's. 
This means that you use C as a flag in cases where one 
subprogram GOSUB's to another. 

2) GOSUB's must be used in the UDK definitions in 
order for proper return when the screen menu is used. 

3) If there aren't enough lines for a particular sub- 
program, use a GOSUB to line numbers above 21000 
or use the 10000 area. Be sure to terminate the 
extension with a "RETURN". 

4) By definition, the UDK starting line number is the 
UDK number times 4. The subprogram starting line 
number is the UDK number or C times 1000. 

5) By using UDK #10 (C=10) for nip-flopping between 
the screen menu and using the UDK's, you can always 
get the screen menu by pushing UDK #10, even if you 
have lost the card overlay, b:^"^--.-'.-^'-^. 




Good programming practice includes keeping a backup 
of your program on a separate tape. And, as we oftenfmd 
out too late, using the MARk statement very carefully is 
also good programming practice. But if hindsight has 
outranked foresight, the following tip may be of help. 

Salvaging re-MARked Files 

by Hermand D'Hondt 
Tektronix Australia 

The following program usually works to salvage files 
which have been MARked over. However, it is not 
guaranteed. It seems to depend on the precise location of 
the "LAST" file in relation to the succeeding files. 

lee OH EOF ce> then see 

118 PRINT t33,a:8»e,i 

128 REH Find the new -LAST" fiU 

138 FIND 3 

148 PRINT »33,8:8f8,8 

158 INPUT §33: Af 

168 PRINT A$ 

178 GO TO 158 

288 FIND 5 

218 REH Inputy old or append lost file 

228 INPUT §33: A$ 

238 PRINT Af 

248 GO TO 228 

Another Method (A Last Resort) 

If the preceding program does not work, your local 
Tektronix Systems Analyst may be able to assist you. 



Variables for File Numbers 

Often a program uses multiple tape files. Using variables ^ 
instead of constants as arguments of the FINd statement i 
allows changing the sequence of files on a tape by 
recoding only one statement in a file. Example: 

188 INIT 

118 REM Tota! T»u»b«r of filti in pro^ran. 

129 DATA 4 

139 REM Nunbtr of «ttch filt. 

149 DATA 4,5,6,7 

159 READ H 

169 DIM F<N> 

179 READ F 

189 REM Continue yith nain progran. 

I 

I 

699 REM Call in subprogram file 

619 FIN F<2) 



4051 Applications Library 
Program Abstracts 

Documentation and program listings of these programs may be ordered 
for $15.00 each. Programs will be put on tape for an additional $2.00 
handling charge per program and a $26.00 charge for the tape cartridge. 
(The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc. assumes no responsibility 
and shall have no liability, consequential or otherwise, of any kind 
arising from the use of this program material or any part thereof.) 

Please use the Applications Library Order Form. Order forms are 
included in the Membership Packet and are available from your local £ 
Tektronix Sales Engineer. Orders outside of the U.S. must be ordered \ 
through the local Tektronix sales office. I[^-1~0-^ 

ABSTRACT NUMBER: 51/00-8016/0 
Title: Variable Size Screen Characters 

Author: K. S. Reid-Green 

Educational Testing Service 

Princeton, NJ 
Memory Requirement: 8K 
Peripherals: 4631 Hard Copy Unit Optional 
Statements: 53 

Use this subroutine to generate characters of variable size 
to be displayed on the 4051 screen. This technique is 
useful when displaying textual information which will 
subsequently be plotted in other than the standard 
character size. 

The subroutine converts all letters, numbers and the 
characters " [ ^ " ] ^ and " . " to strokes. 



ETittr 


characi 


bcr size xpy: ^ ^ 


Enter 


output 


coordinates xiy: 2 73 


Enter 


characi 


ter strins: 4831 Library 


4-051 


LIDRARX 
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ABSTRACT NUMBER: 51/00-8017/0 
Title: Paper Tape Labeler 

Author: G. L. Evans 

Heme Hill, London SE240DQ 
Memory Requirement: 8K Bytes 
Peripherals: Paper Tape Punch 
Statements: 93 

When the 4051 is used to drive a paper tape punch, this 
program allows a visual header to be punched in the 
beginning of a paper tape for easy identification. 

A leader of 50 nulls is first punched, and a header of 72 
characters maximum is entered into the 4051 via the 
keyboard. All of the usual editing facilities of the 4051 
may be used at this time. The header is then coded in a 
standard 5x7 matrix and punched, followed by a trailer 
of 50 nulls. 

An example of one type of system used in this mode is the 
punch on an ASR teletype connected to the 4051 \ia the 
IEEE bus (GPIB). The conversion between the IEEE 
standard and the teletype logic is done using a 
microprocessor programmed to allow the teletype to be 
used in the commands SAVE @1: and PRINT (a) I: so 
that data can be sent after the header. 



ABSTRACT NUMBER: 51/00-5401/1 
Title: Graphics Demonstrations for Astronomy and 
Physics 

Author: Dr. R. J. Reimann 

Physics Department 

Boise State University 
Memory Requirement: 8K 
Peripherals: 4662 Plotter Optional 
Files: 12 
Statements: 807 

A second edition with an additional program and 
numerous improvements in the other programs. This is a 



program series, under the control of a directory, for the 
presentation of introductory astromony and physics 
concepts to students with no computer experience. The 
series includes: 

Ellipse— ellipses are drawn according to the user's 
choice of eccentricity. Kepler's first and second laws 
are illustrated. 

Planetary Motion— the inner planets are initially 
aligned and then "race" in circular orbits according 
to Kepler's third law. 

Binary Stars— circular orbits for binary systems are 
plotted using Kepler's third law. The user may select 
the masses and separation. 

Stellar Magnitudes— relative apparent magnitudes 
(0-6) are drawn for stars under the assumption that 
brightness is proportional to area. 

Phaser— a demonstration of the reference circle as 
related to simple harmonic motion. 

Sidereal Time— a view of the Northern sky with 
sidereal clock is drawn according to the user's 
choice. 

Solar Time— a view of the Northern sky is drawn 
according to the user's choice of date and time of 
day. 

Satellite Orbit- earth satellite orbits are plotted 
using a 2-step iterative approximation of Newton's 
law of universal gravitation. User selects radial and 
tangential velocities with an optional choice of 
initial separation. 

Trajectory- a 2-D trajectory is drawn using a 2-step 
iteration assuming drag is proportional to v^. The 
plot is automatically scaled and labelled. The user 
selects velocity components Vx and Vy with an 
optional choice of drag coefficient. 

Vector Combinations— addition of numerous 2-D 
vectors drawn head-to-tail. The plot is automatical- 
ly scaled and the resultant is expressed in both 
rectangular and polar coordinates. 

Linear Least-Squares Fit— user inputs number of 
data points and each x,y coordinate. The best fit to a 
straight line is calculated including standard errors. 
The plot is automatically scaled and "proper" "tic" 
marks are made on the axes. Hard copies are 
produced by pressing User Definable Key #3 if a 
4662 Plotter is connected. 
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ABSTRACT NUMBER: 51/00-9521/0 
Title: Spider Web Charts 

Author: Tom Price 

Lorillard Research 

Greensboro, NC 
Memory Requirement: 8K 
Periphals: 4631 Hard Copy Unit 
Statements: 74 

This program produces spider web profiles for any 
number of parameters. Such profiles are useful in the 
concise presentation of multiple properties related to an 
item on a single graph. Rapid comparisons between items 
are greatly facilitated. This type of presentation is widely 
used in the tobacco industry for the comparison of flavor 
properties between different brands. 
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ABSTRACT NUMBER: 51/00-3101/0 
Title: Minimum Operating Cost for Two Aircraft 

Author: Florent van Vlasselaer 

Tektronix Belgium 
Memory Requirements: 8K 
Peripherals: 4952 Joystick 

4631 Hard Copy 

4662 Plotter (Optional) 
Statements: 180 

The program determines all possible mixes of two types of 
aircraft covering the same route for one week. The 
constraints are total passengers and cargo and, for each 
plane, capacity and upper and lower limits of capacity 
actually used. 

The output is a parallelogram on the X-Y axes; this 
output encloses the possible mixes. The operator can then 
use the joystick to select points for which the annual 
operating cost will be calculated. 



TWO PROGRAMS IN ONE 

Both the Slide Maker program (51 ,00-8009 0) and the 
Pie Chart Routine for 4662 (51 / 00-9512 0) have been 
incorporated into program 51 00-9513 0, PRESEN- 
TATION AIDS RELEASE 2. Any orders designating 
either of these first two will be filled with Presentation 
Aids. 

The User Definable Keys allow a choice of either the slide 
maker or pie chart function. 
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